home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / amag / sh9301b.lha / ARexx-Utilities(S.55) / DelRemRX.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-12  |  675b  |  35 lines
  1. /* ======= DelRem.rexx ======= */
  2. say " Entfernt alle Kommentare ",
  3.     "aus einem ARexx-Programm"
  4. say ""
  5. options prompt " Quell-Datei: "
  6. pull source
  7. options prompt " Ziel-Datei : "
  8. pull target
  9.  
  10. open(lese,source,"r")
  11. open(sende,target,"w")
  12. /* ARexx-Kennung uebernehmen */
  13. zeile= readln(lese)
  14. writeln(sende,zeile)
  15.  
  16. do while ~eof(lese)
  17.  zeile= readln(lese)
  18.  x1=index(zeile,"/*",1)
  19.  y1=index(zeile,"*/")
  20.   select
  21.     when zeile=""then NOP
  22.     when x1~=0
  23.      then zeile=delstr(zeile,x1)
  24.     when y1~=0 & x1=0
  25.      then zeile=delstr(zeile,1)
  26.    otherwise NOP
  27.   end
  28.  zeile=trim(zeile)
  29.  if zeile ~=""
  30.   then writeln(sende,zeile)
  31. end
  32. call close(lese)
  33. call close(sende)
  34. say "READY!"
  35.